home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 1.iso / ARGONET / PD / PROGRAMMING / DESKLIBC / SOURCES.ZIP / DeskLib / !DLSources / Libraries / WimpSWIs / s / 44SlotSize < prev    next >
Text File  |  1995-08-26  |  2KB  |  58 lines
  1. ;
  2. ;       Title                  : Wimp Slot Size.
  3. ;       System                 : Wimp Library
  4. ;       Version                : 1.0
  5. ;       Copyright              : (C) John Winters
  6. ;       Date                   : 12th January, 1990
  7. ;       Author                 : John H. Winters
  8. ;
  9. ;       Function               : Changes the slot size of the process.
  10. ;                                N.B.  This version does not cater for ASD.
  11. ;
  12. ;
  13. ;       Modification history.
  14. ;
  15. ;       Version                : (Reflect in header IDENT)
  16. ;       Date                   :
  17. ;       Author                 :
  18. ;       Changes                :
  19. ;
  20. ;
  21. ;============================================================================
  22. ;
  23. ;  Include files.
  24. ;
  25. ;============================================================================
  26. ;
  27.         GET     ^.h.regdefs
  28.         GET     ^.h.swinos
  29.         GET     ^.h.macros
  30. ;
  31. ;============================================================================
  32. ;
  33. ;  Code.
  34. ;
  35. ;============================================================================
  36. ;
  37.         PREAMBLE
  38.         STARTCODE Wimp_SlotSize
  39. ;
  40. ;  There is a nasty bug in Risc-OS.  R4 (v1) is not preserved during calls
  41. ;  to Wimp_SlotSize.  Hence can't use it as temporary workspace.
  42. ;
  43.         STMFD   sp!, {v1, v2, v3, lr}
  44.         MOV     a4, a1
  45.         MOV     v2, a2
  46.         MOV     v3, a3
  47.         LDR     a1, [a4, #0]
  48.         LDR     a2, [v2, #0]
  49.         MOV     a3, #0
  50.         SWI     SWI_Wimp_SlotSize + XOS_Bit
  51.         STRVC   a1, [a4, #0]
  52.         STRVC   a2, [v2, #0]
  53.         STRVC   a3, [v3, #0]
  54.         MOVVC   a1, #0
  55.         LDMFD   sp!, {v1, v2, v3, pc}^
  56. ;
  57.         END
  58.